;;test opening and closing a unix socket

(import (rnrs base (6))
	(rnrs io simple (6))
	(rnrs io ports (6))
	(xsb impl-dep plt socket))

(define sock (open-file-stream-socket "/tmp/.X11-unix/X0" #t))
(write sock)
(close-port sock)
(newline)
